Shareware Grab Bag/Shareware Grab Bag.iso/090/tbasmhlp.arc/XQPRINT.BAS

BASIC Source File | 1987-07-24 | 6KB | 84 lines

SUB xqprint INLINE
  $INLINE &H55                '100 PUSH    BP
  $INLINE &H8B,&HEC           '101 MOV    BP,SP
  $INLINE &H1E                '103 PUSH    DS
  $INLINE &HC4,&H7E,&H16      '104 LES    DI,[BP+16]
  $INLINE &H8B,&H16,&H00,&H00 '107 MOV    DX,[0000]
  $INLINE &H52                '10B PUSH    DX
  $INLINE &H1F                '10C POP    DS
  $INLINE &H26                '10D ES:
  $INLINE &H8B,&H0D           '10E MOV    CX,[DI]
  $INLINE &H81,&HE1,&HFF,&HEF '110 AND    CX,EFFF
  $INLINE &H74,&H7E           '114 JZ    0194
  $INLINE &H26                '116 ES:
  $INLINE &H8B,&H75,&H02      '117 MOV    SI,[DI+02]
  $INLINE &HC4,&H7E,&H0A      '11A LES    DI,[BP+0A]
  $INLINE &H26                '11D ES:
  $INLINE &H8B,&H05           '11E MOV    AX,[DI]
  $INLINE &H50                '120 PUSH    AX
  $INLINE &HC4,&H7E,&H06      '121 LES    DI,[BP+06]
  $INLINE &H26                '124 ES:
  $INLINE &H8B,&H05           '125 MOV    AX,[DI]
  $INLINE &H50                '127 PUSH    AX
  $INLINE &HC4,&H7E,&H0E      '128 LES    DI,[BP+0E]
  $INLINE &H26                '12B ES:
  $INLINE &H8B,&H05           '12C MOV    AX,[DI]
  $INLINE &H50                '12E PUSH    AX
  $INLINE &HC4,&H7E,&H12      '12F LES    DI,[BP+12]
  $INLINE &H26                '132 ES:
  $INLINE &H8B,&H05           '133 MOV    AX,[DI]
  $INLINE &H48                '135 DEC    AX
  $INLINE &HBB,&H40,&H00      '136 MOV    BX,0040
  $INLINE &H8E,&HC3           '139 MOV    ES,BX
  $INLINE &H26                '13B ES:
  $INLINE &HF7,&H26,&H4A,&H00 '13C MUL    WORD PTR [004A]
  $INLINE &H5F                '140 POP    DI
  $INLINE &H4F                '141 DEC    DI
  $INLINE &H03,&HF8           '142 ADD    DI,AX
  $INLINE &HD1,&HE7           '144 SHL    DI,1
  $INLINE &H26                '146 ES:
  $INLINE &H8B,&H16,&H63,&H00 '147 MOV    DX,[0063]
  $INLINE &H83,&HC2,&H06      '14B ADD    DX,+06
  $INLINE &HB8,&H00,&HB0      '14E MOV    AX,B000
  $INLINE &HFC                '151 CLD
  $INLINE &H26                '152 ES:
  $INLINE &H8B,&H1E,&H10,&H00 '153 MOV    BX,[0010]
  $INLINE &H81,&HE3,&H30,&H00 '157 AND    BX,0030
  $INLINE &H83,&HFB,&H30      '15B CMP    BX,+30
  $INLINE &H74,&H2A           '15E JZ    018A
  $INLINE &HB4,&HB8           '160 MOV    AH,B8
  $INLINE &H5B                '162 POP    BX
  $INLINE &H0B,&HDB           '163 OR    BX,BX
  $INLINE &H74,&H07           '165 JZ    016E
  $INLINE &H81,&HC7,&H00,&H10 '167 ADD    DI,1000
  $INLINE &H4B                '16B DEC    BX
  $INLINE &H75,&HF9           '16C JNZ    0167
  $INLINE &H8E,&HC0           '16E MOV    ES,AX
  $INLINE &H5B                '170 POP    BX
  $INLINE &H8A,&HFB           '171 MOV    BH,BL
  $INLINE &HAC                '173 LODSB
  $INLINE &H8A,&HD8           '174 MOV    BL,AL
  $INLINE &HFA                '176 CLI
  $INLINE &HEC                '177 IN    AL,DX
  $INLINE &HD0,&HE8           '178 SHR    AL,1
  $INLINE &H72,&HFB           '17A JB    0177
  $INLINE &HEC                '17C IN    AL,DX
  $INLINE &HD0,&HE8           '17D SHR    AL,1
  $INLINE &H73,&HFB           '17F JNB    017C
  $INLINE &H8B,&HC3           '181 MOV    AX,BX
  $INLINE &HAB                '183 STOSW
  $INLINE &HFB                '184 STI
  $INLINE &HE2,&HEC           '185 LOOP    0173
  $INLINE &HEB,&H0B           '187 JMP    0194
  $INLINE &H90                '189 NOP
  $INLINE &H8E,&HC0           '18A MOV    ES,AX
  $INLINE &H5B                '18C POP    BX
  $INLINE &H58                '18D POP    AX
  $INLINE &H8A,&HE0           '18E MOV    AH,AL
  $INLINE &HAC                '190 LODSB
  $INLINE &HAB                '191 STOSW
  $INLINE &HE2,&HFC           '192 LOOP    0190
  $INLINE &H1F                '194 POP    DS
  $INLINE &H5D                '195 POP    BP
END SUB